home *** CD-ROM | disk | FTP | other *** search
/ Inter.Net 55-1 / Inter.Net 55-1.iso / CBuilder / Setup / BCB / data.z / sdimain.cpp < prev    next >
Encoding:
C/C++ Source or Header  |  1998-02-09  |  1.5 KB  |  48 lines
  1. //---------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  4.  
  5. #include "SDIMain.h"
  6. #include "About.h"
  7. //---------------------------------------------------------------------
  8. #pragma resource "*.dfm"
  9. TSDIAppForm *SDIAppForm;
  10. //---------------------------------------------------------------------
  11. __fastcall TSDIAppForm::TSDIAppForm(TComponent *AOwner)
  12.     : TForm(AOwner)
  13. {
  14. }
  15. //---------------------------------------------------------------------
  16. void __fastcall TSDIAppForm::ShowHint(TObject *Sender)
  17. {
  18.     StatusBar->SimpleText = Application->Hint;
  19. }
  20. //---------------------------------------------------------------------
  21. void __fastcall TSDIAppForm::ExitItemClick(TObject *Sender)
  22. {
  23.     Close();
  24. }
  25. //---------------------------------------------------------------------
  26. void __fastcall TSDIAppForm::OpenItemClick(TObject *Sender)
  27. {
  28.     OpenDialog->Execute();
  29. }
  30. //---------------------------------------------------------------------
  31. void __fastcall TSDIAppForm::SaveItemClick(TObject *Sender)
  32. {
  33.     SaveDialog->Execute();
  34. }
  35. //---------------------------------------------------------------------
  36. void __fastcall TSDIAppForm::About1Click(TObject *Sender)
  37. {
  38.     AboutBox->ShowModal();
  39. }
  40. //---------------------------------------------------------------------
  41. void __fastcall TSDIAppForm::FormCreate(TObject *Sender)
  42. {
  43.     Application->OnHint = ShowHint;
  44. }
  45. //---------------------------------------------------------------------
  46.  
  47.  
  48.